NOTE:

In[]:=
ParallelEvaluate[Needs["PostTagSystem`"]]
Out[]=
{Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null}

Older versions:


More

In[]:=
FindPostTagFinal[{0,{0,1,1,1,1,1,1,1,1,0,1,1,0,1,0}}]
Out[]=
{20858048,22}
In[]:=
FindPostTagFinal[{0,{1,0,1,0,1,0,1,0,0,1,1,0,1,0,1,1,1,1,1,1,0}}]
Out[]=
{2586944112,6}
In[]:=
getCycle[{0,Table[0,8]}]
Out[]=
{{0,{0,0,0,0,0,0,0,0}},{2,{0,0,0,0,0,0,0,0}},{1,{0,0,0,0,0,0,0,0}},{0,{0,0,0,0,0,0,0}},{2,{0,0,0,0,0,0,0}},{1,{0,0,0,0,0,0,0}},{0,{0,0,0,0,0,0}},{2,{0,0,0,0,0,0}},{1,{0,0,0,0,0,0}},{0,{0,0,0,0,0}},{2,{0,0,0,0,0}},{1,{0,0,0,0,0}},{0,{0,0,0,0}},{2,{0,0,0,0}},{1,{0,0,0,0}},{0,{0,0,0}},{2,{0,0,0}},{1,{0,0,0}},{0,{0,0}},{2,{0,0}},{1,{0,0}},{0,{0}},{2,{0}},{1,{0}},{0,{}}}
In[]:=
Length[%]
Out[]=
25
In[]:=
FindPostTagDetails2[#,FindPostTagFate[#]]&[{0,{0,1,1,1,1,1,1,1,1,0,1,1,0,1,0}}]
Out[]=
20858048
In[]:=
FindPostTagDetails[#,FindPostTagFate[#]]&[{0,{1,0,1,0,1,0,1,0,0,1,1,0,1,0,1,1,1,1,1,1,0}}]
Out[]=
2586944120
In[]:=
FindPostTagDetails2[#,FindPostTagFate[#]]&[{0,{1,0,1,0,1,0,1,0,0,1,1,0,1,0,1,1,1,1,1,1,0}}]
Out[]=
2586944112
Needs to be run again after backing off 8 steps, etc.
In[]:=
FindPostTagFate[{2,{0,0,1,1,1,1,1,1,0,1}}]
Out[]=
{{14,{2,{1,1,1,0,0,0,1,1,1,0,0,0}}},65544,16}
In[]:=
FindPostTagFate[{2,{0,0,1,1,1,1,1,1,0,1}},10]
Out[]=
{{TooBig,{0,{1,0,1,1,1,0,0,1,1,0,0,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,1,0,0,1,1,0,1,0,1,1,1,0,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1}}},16376,8192}
In[]:=
FindPostTagFate[{0,{1,0,1,0,1,0,1,0,0,1,1,0,1,0,1,1,1,1,1,1,0}}]
Out[]=
{{31,{2,{1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,0,0,0}}},8589934592,8}
In[]:=
FindPostTagFate[{0,{0,1,1,1,1,1,1,1,1,0,1,1,0,1,0}}]
Out[]=
{{22,{0,{0,0,0,0,0,0,0}}},20858048,4080840}
In[]:=
FindPostTagFate[{0,{1,1,1,0,1,0,1,0,1,1,1,1,0,1,0}}]
Out[]=
{{28,{1,{1,0,0,0,1,1,1,0,0,0,1,1,1}}},1073741832,16}
In[]:=
GeneratePostTagSystemHistory[{0,{1,1,1,0,1,0,1,0,1,1,1,1,0,1,0}},1073741832,{1,{1,0,0,0,1,1,1,0,0,0,1,1,1}}]
Out[]=
EventCount357007584,FinalState{1,{1,0,0,0,1,1,1,0,0,0,1,1,1}}
In[]:=
FindTransientRepeat[NestList[TSPhaseStep,{1,{1,0,0,0,1,1,1,0,0,0,1,1,1}},100],3]
Out[]=
{{},{{1,{1,0,0,0,1,1,1,0,0,0,1,1,1}},{2,{0,0,0,1,1,1,0,0,0,1,1,1,0}},{1,{0,0,1,1,1,0,0,0,1,1,1,0,0}},{0,{0,1,1,1,0,0,0,1,1,1,0,0}},{2,{1,1,1,0,0,0,1,1,1,0,0,0}},{0,{1,1,0,0,0,1,1,1,0,0,0,1}}}}
In[]:=
PostTagSystem[{1,{1,0,0,0,1,1,1,0,0,0,1,1,1}}]
Out[]=
PostTagSystemEvolution
States: 6

In[]:=
Table[FindPostTagFinal[{0,IntegerDigits[i,2,12]}],{i,0,100}]
Out[]=
{{16,0},{16,0},{16,0},{16,92},{16,12},{16,100},{16,0},{24,0},{16,0},{16,14},{16,0},{24,0},{16,0},{24,0},{24,92},{32,86},{16,0},{16,0},{16,0},{24,0},{16,0},{24,0},{32,86},{904,6},{16,98},{64,10},{72,10},{928,6},{24,92},{32,0},{48,6},{24,6},{16,0},{16,4},{16,18},{24,98},{16,0},{40,6},{48,10},{912,6},{16,58},{896,6},{32,6},{32,6},{72,10},{40,86},{48,0},{208,0},{16,18},{24,98},{56,10},{32,0},{24,90},{24,0},{32,0},{16,10},{24,46},{32,0},{40,0},{40,6},{912,6},{128,6},{24,10},{88,86},{16,0},{16,14},{16,0},{24,0},{16,0},{24,0},{24,92},{32,86},{16,0},{24,0},{72,10},{72,10},{24,12},{24,92},{64,10},{920,6},{16,0},{24,0},{24,0},{24,14},{24,0},{24,0},{24,0},{32,88},{24,0},{24,0},{24,0},{904,6},{32,86},{928,6},{40,0},{48,0},{16,0},{24,0},{24,14},{72,10},{24,0}}
In[]:=
ParallelTable[FindPostTagFinal[{0,IntegerDigits[i,2,12]}],{i,0,2^12-1}];
In[]:=
KeySort[Counts[Last/@%]]
Out[]=
0966,21,45,62123,10849,1230,1426,1625,2844,4027
In[]:=
KeySort[Counts[First/@%120]]
Out[]=
013,820,1697,221,2481,264,286,308,32124,3410,367,389,40105,425,442,467,4858,501,522,542,5659,583,603,621,6485,663,682,7295,744,761,80107,8863,921,941,9649,981,1001,1023,10445,10611,10812,11014,11269,11424,11627,11819,12068,12223,12425,12624,12858,13012,13213,13416,13651,13823,14011,14213,14439,14612,1488,15011,15222,1546,1569,1586,16015,1626,1649,1669,16814,1706,1727,1746,17610,1784,1804,1825,18420,1865,1886,1904,19234,1942,1961,1982,20026,2061,20826,2103,2121,2142,21624,2181,2201,2223,22421,2281,23214,2341,2361,2381,2406,2461,2482,25613,26412,2661,2701,2728,2781,2801,2821,2844,2881,2901,2921,2941,3021,3041,3061,3082,3102,3442,3461,3481,35214,3543,3566,3586,36017,3624,3644,3667,3685,3708,3725,3746,3764,3788,3804,3827,3842,3865,3886,3907,3923,3944,3962,3982,4003,4021,4081,4101,4421,4441,4581,4642,4721,5121,5603,5685,5761,5841,6002,6085,6166,6244,7363,7442,75211,76018,76821,77618,78411,7928,8006,8087,8168,82430,83244,84027,8486,85610,86413,87213,8805,8885,89623,90434,91239,92038,92836,93634,9381,94418,95211,9606,10003,10089,10168,101728,10242,1025129,10323,1033108,10403,1041100,104974,105741,10643,106520,10739,10802,10815,10897,109710,11057,11133,11211,11296,113725,114529,115317,116123,116920,117713,118522,119324,120129,120926,12178,12254,12337,12415,12494,12572,12652,12811,13453,13534,136113,13697,13771,14171,14256,143310,14414,14491,14651,14962,14972,15052,15126,152020,152837,153621,154419,15529,15933,16016,16092,16333,16411,16492,16571,16651,17051,18091,20641,20726,20809,208810,20967,210410,21201,232910,233716,234519,235313,23617,23696,23771,25683,25762,25841,25922,26004,26084,26163,26241,263210,26405,26482,26563,26882,26964,27044,27128,27201,27281,27368,27443,27929,280013,280811,28165,28246,28327,28405,28487,28565,28646,29444,29522,40642,40802,40886,40962,63933,64015,64091,245282,245365,245445,245521,2534561
In[]:=
Histogram[Log10[First/@%120],Automatic,{"Log","Count"},PlotRangeAll,FrameTrue]
Out[]=
In[]:=
With[{n=9},ParallelTable[FindPostTagFinalPlus[{0,IntegerDigits[i,2,n]}],{i,0,2^n-1}]]
In[]:=
Union[Last/@%]
Out[]=
{{0,{}},{0,{1,1,0,0}},{0,{0,1,1,1,0,0}},{0,{0,1,0,1,1,1,0,0}},{0,{1,1,0,0,1,1,0,0}},{0,{0,1,0,1,0,1,1,1,0,0}},{0,{0,1,1,1,0,0,1,1,0,0}},{0,{0,0,1,1,1,0,0,0,1,1,1}},{0,{0,1,1,1,0,0,0,1,1,1,0,0}},{0,{0,0,1,1,1,1,1,1,1,0,1,0,0}},{0,{0,1,1,1,0,0,0,1,1,1,0,0,1,1,0,0}},{0,{0,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,0,0}},{0,{0,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,0,0,1,1,0,0}}}

Find non-standard cycles....

Different phase:

Searches

Small cases

Analysis

Use HistogramList to store results....

Reloading....